function [display_var] = robustness_cf_dist(store_suffix)
%This function shows the distributional stuff on the robustness

%store_suffix='baseline';

%%%
% 1. for status quo
%%%
base=['alloc_teach_est_princ_est_restr_',store_suffix,'.mat'];
basefilename=join(base);
folder='../../01_data/05_temp/model/';
savefile=fullfile(folder, basefilename);

basedata=open(savefile);

% 3 is advaantage, 4 is disadvantage
stable_teach_propose=basedata.stable_teach_propose;
status_quo=mean(stable_teach_propose(:,4));

%%%%%%%%%%%%
% 2. for all options
%%%%%%%%
base=['alloc_teach_est_princ_est_unrestr_',store_suffix,'.mat'];
basefilename=join(base);
folder='../../01_data/05_temp/model/';
savefile=fullfile(folder, basefilename);

basedata=open(savefile);

% 3 is advaantage, 4 is disadvantage
stable_teach_propose=basedata.stable_teach_propose;
all_options=mean(stable_teach_propose(:,4));


%%%%%%%%%%%%
% 3. for principal va
%%%%%%%%
base=['alloc_teach_est_princ_va_restr_',store_suffix,'.mat'];
basefilename=join(base);
folder='../../01_data/05_temp/model/';
savefile=fullfile(folder, basefilename);

basedata=open(savefile);

% 3 is advaantage, 4 is disadvantage
stable_teach_propose=basedata.stable_teach_propose;
principal_va=mean(stable_teach_propose(:,4));


%%%%%%%%%%%%
% 4. princ est, teach fracdis
%%%%%%%%
base=['alloc_teach_ndis_princ_est_',store_suffix,'.mat'];
basefilename=join(base);
folder='../../01_data/05_temp/model/';
savefile=fullfile(folder, basefilename);

basedata=open(savefile);

% 3 is advantage, 4 is disadvantage
stable_teach_propose=basedata.stable_teach_propose;
teach_fracdis_princ_est=mean(stable_teach_propose(:,4));

%%%%%%%%%%%%
% 5. for principal va, and teach fracdis
%%%%%%%%
base=['alloc_teach_ndis_princ_va_',store_suffix,'.mat'];
basefilename=join(base);
folder='../../01_data/05_temp/model/';
savefile=fullfile(folder, basefilename);

basedata=open(savefile);

% 3 is advantage, 4 is disadvantage
stable_teach_propose=basedata.stable_teach_propose;
teach_fracdis_princ_va=mean(stable_teach_propose(:,4));

%%%%%%%%%%%%
% for first best
%%%%%%%%
base=['alloc_teach_fracdis_princ_va_unrestr_',store_suffix,'.mat'];
basefilename=join(base);
folder='../../01_data/05_temp/model/';
savefile=fullfile(folder, basefilename);

basedata=open(savefile);

% 3 is advaantage, 4 is disadvantage
firstbest_school=basedata.firstbest_school;
first_best=mean(firstbest_school(:,4));

 % collect things

% all_options= all_option;
 %principal_va= principal_va;
% teach_va=teach_va;
% teach_va_princ_va=teach_va_princ_va;
% first_best=first_best-status_quo;
display_var= [status_quo all_options principal_va teach_fracdis_princ_est teach_fracdis_princ_va first_best];



end

